home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / OFFLEFT.BAT < prev    next >
DOS Batch File  |  1993-06-01  |  503b  |  30 lines
  1. @ECHO OFF
  2. IF %STRING%.==. GOTO error
  3. IF %N%.==. GOTO error
  4.  
  5. IF %N%==1 GOTO LOOP
  6. IF %N%==2 GOTO LOOP
  7. IF %N%==3 GOTO LOOP
  8. IF %N%==4 GOTO LOOP
  9. IF %N%==5 GOTO LOOP
  10. IF %N%==6 GOTO LOOP
  11. IF %N%==7 GOTO LOOP
  12. GOTO error
  13.  
  14. :loop
  15. FOR %%Y IN (/%STRING%) DO SET STRING=%%Y
  16.  
  17. IF  %N%==1    SET N=
  18. IF  %N%.==2.  SET N=1
  19. IF  %N%.==3.  SET N=2
  20. IF  %N%.==4.  SET N=3
  21. IF  %N%.==5.  SET N=4
  22. IF  %N%.==6.  SET N=5
  23. IF  %N%.==7.  SET N=6
  24.  
  25. IF  NOT %N%.==. GOTO loop
  26. GOTO done
  27. :error
  28. ECHO Error
  29. :done
  30.